home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 34.zip
/
BS1 part 34
/
FredFish PD 302.adf
/
MiscUtils
/
rgb.c
< prev
Wrap
C/C++ Source or Header
|
1990-01-15
|
2KB
|
67 lines
/*======================================================*/
/* */
/* Cli command to set the rgb values of a color V1.0 */
/* This utility changes the rgb values of the front */
/* screen */
/* */
/* © J.Tyberghein 6 sep 89 V1.0 */
/* Tue Dec 19 15:42:36 1989 */
/* */
/* Compile with: */
/* Lattice 5.0x: */
/* lc -v -cms -L -O rgb */
/* Aztec 3.6: */
/* cc rgb.c */
/* ln +q rgb.o -lc */
/* */
/*======================================================*/
#include <exec/types.h>
#include <graphics/gfxbase.h>
#include <intuition/intuitionbase.h>
#ifdef LATTICE
#include <proto/graphics.h>
#include <proto/exec.h>
#endif
#ifndef LATTICE
#include <functions.h>
#endif
struct IntuitionBase *IntuitionBase;
struct GfxBase *GfxBase;
void main (argc,argv)
int argc;
char *argv[];
{
LONG cn,r,g,b;
if (argc != 5)
{
printf ("Usage: <color> <red> <green> <blue>\n");
exit (0);
}
if (!(IntuitionBase = (struct IntuitionBase *)OpenLibrary ("intuition.library",0L)))
{
printf ("Error opening Intuition !\n");
exit (1);
}
if (!(GfxBase=(struct GfxBase *)OpenLibrary ("graphics.library",0L)))
{
CloseLibrary ((struct Library *)IntuitionBase);
printf ("Error opening graphics !\n");
exit (1);
}
sscanf (argv[1],"%ld",&cn);
sscanf (argv[2],"%ld",&r);
sscanf (argv[3],"%ld",&g);
sscanf (argv[4],"%ld",&b);
SetRGB4 (&(IntuitionBase->FirstScreen->ViewPort),cn%32L,r%16L,g%16L,b%16L);
CloseLibrary ((struct Library *)IntuitionBase);
CloseLibrary ((struct Library *)GfxBase);
}